home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq15.zip / DISPLAY.SLT < prev    next >
Text File  |  1990-10-31  |  2KB  |  64 lines

  1. //-----------------------------------------------------------
  2. // DISPLAY.SL? Display setting of some flags.
  3. //
  4. // This script is executed whenever you toggle one of the flags.
  5.  
  6.  
  7. // Please look at the comments through the whole file, and modify to
  8. // suit your needs, BEFORE you use it. Then recompile with CS DISPLAY
  9.  
  10. // If you have suggestions for improving this script, please suggest
  11. // improvements to me via old-fashioned snail-mail to:
  12.  
  13. //   Inge Vabekk
  14. //   Hamangskogen 108
  15. //   N-1300 SANDVIKA
  16. //   NORWAY                   
  17. //-----------------------------------------------------------
  18.  
  19. str sline  [6]
  20.    ,global []="GLOBAL"
  21.    ,status []="STATUS"
  22.    ,change []="CHANGE"
  23.    ,read[]="R"                 // To READ from Global script.
  24.    ,write[]="W"                // To WRITE to Global script.
  25.    ;
  26.  
  27.  
  28. //-----------------------------------------------------------
  29. // Script starts here.
  30. //-----------------------------------------------------------
  31.  
  32. main()
  33. {
  34. int number, x, y;
  35.  
  36.   if (call (global,read,change,sline) < 0) return;  // Not defined.
  37.   call (global,write,change,"");                    // Undefine it.
  38.   call (global,read,status,sline);       // Get line number of
  39.   number = stoi (sline);                 // status line.  
  40.   terminal();
  41.   x = getx();
  42.   y = gety();
  43.   pstraxy
  44.     ("  (sonl,noex)  ",27,number,10);    // Write default status.
  45.   gotoxy (x,y);
  46.  
  47.   call (global,read,"LOGOF",sline);      // Get logoff flag.
  48.   if (subchr (sline,0) == 'Y')
  49.   { terminal();
  50.     x = getx();
  51.     y = gety();
  52.     pstraxy ("LGOF",30,number,28);       // Write status.
  53.     gotoxy (x,y);
  54.   }
  55.   call (global,read,"EXIT",sline);
  56.   if (subchr (sline,0) == 'Y')
  57.   { terminal();
  58.     x = getx();
  59.     y = gety();
  60.     pstraxy ("EXIT",35,number,140);      // Write status.
  61.     gotoxy(x,y);
  62.   }
  63. }
  64.